home *** CD-ROM | disk | FTP | other *** search
/ Workbench Design / WB Collection.iso / workbench werkzeuge / programmmanager / wangipad / install_wangipad < prev    next >
Text File  |  1996-04-07  |  2KB  |  89 lines
  1. ;$VER: Wangi_install 1.0
  2. ;$AUTHOR: Lee Kindness
  3.  
  4. (set prefdest
  5.     (askdir
  6.         (prompt 'Where will WangiPad preferences be copied to?')
  7.         (help 'This is where you want the WangiPad preference program to be located. It should normally be in your prefs directory\n\n'@askdir-help)
  8.         (default 'SYS:Prefs')
  9.     )
  10. )
  11.  
  12. (copylib
  13.     (prompt 'Copying WangiPad preference program');
  14.     (help @copyfiles-help)
  15.     (source 'WangiPrefs')
  16.     (dest prefdest)
  17.     (infos)
  18.     (noposition)
  19.     (confirm)
  20. )
  21.  
  22.  
  23. (set name
  24.     (askdir
  25.         (prompt 'Where will WangiPad be copied to?')
  26.         (help 'This is where you want the WangiPad program to be located. It should normally be in your WBStartup directory\n\n'@askdir-help)
  27.         (default 'SYS:WBStartup')
  28.     )
  29. )
  30.  
  31. (set @default-dest name)
  32.  
  33. (copylib
  34.     (prompt 'Copying WangiPad');
  35.     (help @copyfiles-help)
  36.     (source 'WangiPad')
  37.     (dest name)
  38.     (infos)
  39.     (noposition)
  40.     (confirm)
  41. )
  42.  
  43. (copylib
  44.     (prompt 'Copying WBStart-Handler (©Stefan Becker)');
  45.     (help @copyfiles-help)
  46.     (source 'WBStart-Handler')
  47.     (dest 'L:')
  48.     (confirm)
  49. )
  50.  
  51.  
  52.  
  53. (If    (= (Exists "Wangi.Prefs" (noreq)) 0) 
  54.     (
  55.         (set name2
  56.             (askdir
  57.                 (prompt 'Where will the sample preferences be copied to?')
  58.                 (help @askdir-help)
  59.                 (default 'S:')
  60.             )
  61.         )
  62.  
  63.         (copyfiles
  64.             (help @copyfiles-help)
  65.             (source 'Wangi.Prefs')
  66.             (dest name2)
  67.         )
  68.     )
  69.     (Set name2 "S:")
  70. )
  71.  
  72. (Tooltype
  73.     (dest (Tackon @default-dest "WangiPad"))
  74.     (settooltype "DONOTWAIT" "")
  75.     (settooltype "FROM" (Tackon name2 "Wangi.Prefs"))
  76.     (settooltype "PREF" (Tackon prefdest "WangiPrefs"))
  77. )
  78.  
  79.  
  80. (transcript '\nWangiPad installed to '@default-dest'\n')
  81.  
  82. (exit 'I hope you find WangiPad useful.\n    LSK _\\\\//')
  83.  
  84.     
  85.  
  86.  
  87.  
  88.  
  89.